home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / anagram.zip / ANA.C next >
Text File  |  1986-05-26  |  1KB  |  53 lines
  1.  
  2. #include <stdio.h>
  3.  
  4. main()
  5.   {
  6.   char alph_symb[129];
  7.   int  alph_len;
  8.     puts("Enter Begining Word: ");
  9.     gets(alph_symb);
  10.     alph_len = strlen(alph_symb);
  11.     rot_symb(alph_symb,0,alph_len,1);
  12.     exit();
  13.   }
  14.  
  15. rot_symb(alph_pass,start,end,ft_sw)
  16.   char *alph_pass;
  17.   int start,
  18.       end,
  19.      ft_sw;
  20.   {
  21.     char work_symb[129],
  22.          x;
  23.     register int i,
  24.                  j;
  25.     if (start < (end - 1))
  26.       {
  27.         strcpy(work_symb,alph_pass);
  28.         for (i = start; i < end; i++)
  29.           {
  30. /*          printf("wk= %s , al= %s, ft= %d \n",work_symb,alph_pass,ft_sw); */
  31.             if (strcmp(work_symb,alph_pass) != 0)
  32.               {
  33.                 puts(work_symb);
  34.                 rot_symb(work_symb,(start + 1),end,0);
  35.               }
  36.             else
  37.               {
  38.                 if (ft_sw == 1)
  39.                   {
  40.                     puts(work_symb);
  41.                   };
  42.                 rot_symb(work_symb,(start + 1),end,0);
  43.               };
  44.             x = work_symb[start];
  45.             for (j = start; j<(end-1); j++)
  46.               {
  47.                 work_symb[j] = work_symb[j+1];
  48.               };
  49.             work_symb[end-1] = x;
  50.           };
  51.       };
  52.   }
  53.